home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / PROGRAMR / MC00.ZIP / S02.SCM < prev    next >
Text File  |  1993-05-02  |  773b  |  23 lines
  1. { C:\BP\CODE\S02.SCM  MenuCase 0.0 13:43:07, 5/2/93 }
  2. GetExtent(r);
  3. R.B.Y := R.A.Y + 1;
  4. MenuBar := new(PmenuBar,init(r,
  5. NewMenu(
  6.   NewSubMenu('~T~his', hcnocontext,
  7.   NewMenu(
  8.         NewSubMenu('~I~s', hcNoContext,
  9.         NewMenu(
  10.               NewSubMenu('~A~', hcNoContext,
  11.               NewMenu(
  12.                     NewSubMenu('~C~razy', hcNoContext,
  13.                     NewMenu(
  14.                           NewSubMenu('~M~enu', hcNoContext,
  15.                           NewMenu(
  16.                                 NewItem('~F~inished', ' ',kbnokey,CmFinished, HcUselessMenu, 
  17.                           NIL)),
  18.                     NIL)),
  19.               NIL)),
  20.         NIL)),
  21.         NewItem('e~X~it', 'Alt X',kbAltX,cmquit, hcNoContext, 
  22.   NIL))),nil))));
  23.